let l = [("Don",435.);("Nut",75.);("Toto",42.)];;

let rec compare a b =
  if a > b then 1
  else if a = b then 0
  else -1;;

let rec find nom list = 
  match list with
      [] -> failwith "Client non trouve"
    | (name,accompt)::l when nom = name -> accompt
    | (name,accompt)::l -> find nom l;;

